R Programming While Loop